function ComputeStartNature(n2)

ValueFolder='/sps/isc/rneveu/EtudeIRM/Nature/Results/';
ValueFolderTemp='/sps/isc/rneveu/EtudeIRM/Nature/ResultsJournal/';
ValueClock=clock;
disp(['Start of the processing at ' num2str(ValueClock(1,4)) ':' num2str(ValueClock(1,5)) ':' num2str(ValueClock(1,6)) ' for journal ' num2str(n2)]);
ValueFile=['StartJournal' num2str(n2) '.mat'];
ValueFileTemp=dir([ValueFolderTemp ValueFile]);
StartDate=[2021 1 1];
VecValueDateTemp={'Jan' 'Feb' 'Mar' 'Apr' 'May' 'Jun' 'Jul' 'Aug' 'Sep' 'Oct' 'Nov' 'Dec'};
if size(ValueFileTemp,1)==0
    n1Temp2=0;
    try
        ValueFile=['StartJournalTemp' num2str(n2) '.mat'];
        load([ValueFolderTemp ValueFile]);
        n1Temp2=n1;
    end
    n1Temp2=n1Temp2+1;
    for n1=n1Temp2:1062
%         n1
        eval(sprintf('load([ValueFolder ''ResultsFile%d.mat'']);',n1));
        eval(sprintf('VecValueTemp=VecResult2Journal%d;',n2));
        for n3=1:size(VecValueTemp,1)
            ValueTemp=VecValueTemp{n3,1};
            if size(ValueTemp,2)>1
                ValueDate=VecValueTemp{n3,5};
                [ValueYear,ValueMonth,ValueDay]=ExtractDate(ValueDate);
                if size(ValueYear,2)>0
                    ValueYearTemp=str2num(ValueYear);
                    if size(ValueMonth,2)>0
                        ValueMonthTemp=str2num(ValueMonth);
                        if size(ValueMonthTemp,2)==0
                            n61=1;
                            TestTemp3=0;
                            while n61<=12&&TestTemp3==0
                                if strcmpi(ValueMonth,VecValueDateTemp{1,n61})==1
                                    ValueMonthTemp=n61;
                                    TestTemp3=1;
                                end
                                n61=n61+1;
                            end
                        end
                    else
                        ValueMonthTemp=NaN;
                    end
                    if size(ValueDay,2)>0
                        ValueDayTemp=str2num(ValueDay);
                    else
                        ValueDayTemp=NaN;
                    end
                    if ValueYearTemp<StartDate(1,1)
                        StartDate=[ValueYearTemp ValueMonthTemp ValueDayTemp];
                    else
                        if ValueYearTemp==StartDate(1,1)
                            if isnan(StartDate(1,2))==0
                                if isnan(ValueMonthTemp)==0
                                    if ValueMonthTemp<StartDate(1,2)
                                        StartDate=[ValueYearTemp ValueMonthTemp ValueDayTemp];
                                    else
                                        if ValueMonthTemp==StartDate(1,2)
                                            if isnan(StartDate(1,3))==0
                                                if isnan(ValueDayTemp)==0
                                                    if ValueDayTemp<StartDate(1,3)
                                                        StartDate=[ValueYearTemp ValueMonthTemp ValueDayTemp];
                                                    end
                                                end
                                            else
                                                StartDate=[ValueYearTemp ValueMonthTemp ValueDayTemp];
                                            end
                                        end
                                    end
                                end
                            else
                                if isnan(StartDate(1,3))==0
                                    if isnan(ValueDayTemp)==0
                                        if ValueDayTemp<StartDate(1,3)
                                            StartDate=[ValueYearTemp ValueMonthTemp ValueDayTemp];
                                        end
                                    end
                                else
                                    StartDate=[ValueYearTemp ValueMonthTemp ValueDayTemp];
                                end
                            end
                        end
                    end
                end
            end
        end
%         if mod(n1,50)==0
%             ValueFile=['StartJournalTemp' num2str(n2) '.mat'];
%             save([ValueFolderTemp ValueFile]);
%         end
    end
    ValueFile=['StartJournal' num2str(n2) '.mat'];
    save([ValueFolderTemp ValueFile],'StartDate');
end
ValueClock=clock;
disp(['End of the processing at ' num2str(ValueClock(1,4)) ':' num2str(ValueClock(1,5)) ':' num2str(ValueClock(1,6)) ' for journal ' num2str(n2)]);